home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / CONVER.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  14 lines
  1. 3 PRINT"SOURCE FILENAME";:INPUTS$
  2. 4 PRINT"FILETYPE(P OR S)";:INPUTTS$
  3. 6 PRINT"DESTINATION FILENAME";:INPUTD$
  4. 7 PRINT"FILETYPE(P OR S)";:INPUTTD$
  5. 8 OPEN1,8,8,"0:"+S$+","+TS$+",R"
  6. 9 OPEN2,8,8,"0:"+D$+","+TD$+",W"
  7. 10 PRINT"1. CBM TO ASCII"
  8. 20 PRINT"2. ASCII TO CBM"
  9. 30 GETA$:IF A$=""THEN30
  10. 40 IFVAL(A$)<1ORVAL(A$)>2THEN30
  11. 50 IFVAL(A$)=1THEN70
  12. 60 SYS3152:CLOSE1:CLOSE2:END
  13. 70 SYS3072:CLOSE1:CLOSE2
  14.